home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / dev / basic / BlitzC2P.lha / blitzc2p / demos / chunkyshapecopy.ascii < prev    next >
Encoding:
Text File  |  1998-09-13  |  11.0 KB  |  567 lines
  1. WBStartup
  2. NoCli
  3.  
  4. ; 040/25 results with objects:
  5.  
  6. ; 320x240 @25fps DoublePAL 120 16x16 objects, masked, no mask data, to any position
  7. ; 320x240 @25fps DoublePAL 330 16x16 objects, unmasked, to any position
  8. ; 320x240 @25fps DoublePAL 245 16x16 objects, masked, with mask data, to any position
  9.  
  10. ; 320x240 @25fps PAL 145 16x16 objects, masked, no mask data, to any position
  11. ; 320x240 @25fps PAL 385 16x16 objects, unmasked, to any position
  12. ; 320x240 @25fps PAL 290 16x16 objects, masked, with mask data, to any position
  13.  
  14. ; 320x240 @25fps PAL 150 16x16 objects, masked, no mask data, to nearest 4 pixels (block4)
  15. ; 320x240 @25fps PAL 410 16x16 objects, unmasked, to nearest 4 pixels (Block4)
  16. ; 320x240 @25fps PAL 320 16x16 objects, masked, with mask data, to nearest 4 pixels (Block4)
  17.  
  18. ; 320x240 @25fps PAL 43  32x32 objects, masked, no mask data, to any position
  19. ; 320x240 @25fps PAL 160 32x32 objects, unmasked, to any position
  20. ; 320x240 @25fps PAL 100 32x32 objects, masked, with mask data, to any position
  21.  
  22. ; 320x240 @25fps PAL 44  32x32 objects, masked, no mask data, to nearest 4 pixels (Block4)
  23. ; 320x240 @25fps PAL 170 32x32 objects, unmasked, to nearest 4 pixels (Block4)
  24. ; 320x240 @25fps PAL 113 32x32 objects, masked, with mask data, to nearest 4 pixels (Block4)
  25.  
  26.  
  27. ; 040/25 c2p results:
  28.  
  29. ; 320x200 @49.65fps DoublePAL or 55.3fps PAL
  30. ; 320x256 @36.2fps DoublePAL or 42.5fps PAL
  31. ; 320x240 @39.5fps DoublePAL or 45.5fps PAL
  32.  
  33. ; 060/50 c2p results:
  34.  
  35. ; 320x256 @50fps PAL
  36. ; 320x200 @66.1fps PAL
  37.  
  38. #c2pBPLX=320
  39. #c2pBPLY=240
  40. #c2pBPLSIZE=(#c2pBPLX*#c2pBPLY)/8
  41.  
  42. #scrwidth=#c2pBPLX
  43. #scrheight=#c2pBPLY
  44. #screensize=#scrwidth*#scrheight
  45.  
  46. #objwidth=8
  47. #objheight=8
  48. #objxalign=$ffff
  49. #objcount=100
  50. #objtype=3
  51. #objlongwidth=#objwidth/4
  52.  
  53. ; c2p1x1_8_c5_040
  54.  
  55. ; 110% on 040-25
  56.  
  57. Statement c2p040onlyinit{A.l,B.l}
  58.  
  59.   ;A.l=d0=Width.w
  60.   ;B.l=d1=Height.w
  61.  
  62. ; d0.w  chunkyx [chunky-pixels]
  63. ; d1.w  chunkyy [chunky-pixels]
  64. ; d3.w  scroffsy [screen-pixels]
  65.  
  66. c2p1x1_8_c5_040_init
  67.   LEA c2p_datanew(pc),a0
  68.   ANDI.l  #$ffff,d0
  69.   MULU.w  d0,d3
  70.   LSR.l #3,d3
  71.   MOVE.l  d3,c2p_scroffs-c2p_data(a0)
  72.   MULU.w  d0,d1
  73.   MOVE.l  d1,c2p_pixels-c2p_data(a0)
  74. AsmExit
  75. End Statement
  76.  
  77. Statement c2p040only{A.l,B.l}
  78.  
  79.   MOVE.l  d0,a0 ; Chunky
  80.   MOVE.l  d1,a1 ; Planar
  81.  
  82. ; a0  c2pscreen
  83. ; a1  bitplanes
  84.  
  85. c2p1x1_8_c5_040
  86.   MOVEM.l a3-a6,-(a7)
  87.  
  88.   MOVEM.l a0-a1,-(a7)
  89.   LEA c2p_datanew,a0
  90.   LEA c2p_data,a1
  91.   MOVEQ #16-1,d0
  92. _c2pcopy: MOVE.l  (a0)+,(a1)+
  93.   DBF d0,_c2pcopy
  94.   MOVEM.l (a7)+,a0-a1
  95.   MOVE.l  a7,stackstore
  96.   MOVE.l  copybuf(pc),a7
  97.   LEA c2p_data(pc),a2
  98.  
  99.   MOVE.l  c2p_pixels-c2p_data(a2),a3
  100.   ADD.l a0,a3
  101.  
  102.   ADD.w #c2pBPLSIZE,a1
  103.   ADD.l c2p_scroffs-c2p_data(a2),a1
  104.   MOVE.l  a1,a2
  105.   ADD.l #c2pBPLSIZE*4,a2
  106.  
  107.   MOVE.l  (a0),d0
  108.   MOVE.l  (a7)+,(a0)+
  109.   MOVE.l  (a0),d1
  110.   MOVE.l  (a7)+,(a0)+
  111.   MOVE.l  (a0),d2
  112.   MOVE.l  (a7)+,(a0)+
  113.   MOVE.l  (a0),d3
  114.   MOVE.l  (a7)+,(a0)+
  115.   MOVE.l  (a0),d4
  116.   MOVE.l  (a7)+,(a0)+
  117.   MOVE.l  (a0),d5
  118.   MOVE.l  (a7)+,(a0)+
  119.  
  120.   MOVE.l  d4,d7     ; Swap 16x4, part 1
  121.   MOVE.w  d0,d4
  122.   SWAP  d4
  123.   MOVE.w  d4,d0
  124.   MOVE.w  d7,d4
  125.   MOVE.l  d5,d7
  126.   MOVE.w  d1,d5
  127.   SWAP  d5
  128.   MOVE.w  d5,d1
  129.   MOVE.w  d7,d5
  130.  
  131.   MOVE.l  d4,d7     ; Swap 2x4, part 1
  132.   LSR.l #2,d7
  133.   EOR.l d0,d7
  134.   AND.l #$33333333,d7
  135.   EOR.l d7,d0
  136.   LSL.l #2,d7
  137.   EOR.l d7,d4
  138.   MOVE.l  d5,d7
  139.   LSR.l #2,d7
  140.   EOR.l d1,d7
  141.   AND.l #$33333333,d7
  142.   EOR.l d7,d1
  143.   LSL.l #2,d7
  144.   EOR.l d7,d5
  145.  
  146.   MOVE.l  (a0),a5
  147.   MOVE.l  (a7)+,(a0)+
  148.   MOVE.l  (a0),a6
  149.   MOVE.l  (a7)+,(a0)+
  150.  
  151.   EXG d4,a5
  152.   EXG d5,a6
  153.  
  154.   MOVE.l  d4,d7     ; Swap 16x4, part 2
  155.   MOVE.w  d2,d4
  156.   SWAP  d4
  157.   MOVE.w  d4,d2
  158.   MOVE.w  d7,d4
  159.   MOVE.l  d5,d7
  160.   MOVE.w  d3,d5
  161.   SWAP  d5
  162.   MOVE.w  d5,d3
  163.   MOVE.w  d7,d5
  164.  
  165.   MOVE.l  d4,d7     ; Swap 2x4, part 2
  166.   LSR.l #2,d7
  167.   EOR.l d2,d7
  168.   AND.l #$33333333,d7
  169.   EOR.l d7,d2
  170.   LSL.l #2,d7
  171.   EOR.l d7,d4
  172.   MOVE.l  d5,d7
  173.   LSR.l #2,d7
  174.   EOR.l d3,d7
  175.   AND.l #$33333333,d7
  176.   EOR.l d7,d3
  177.   LSL.l #2,d7
  178.   EOR.l d7,d5
  179.  
  180.   MOVE.l  d1,d7     ; Swap 4x1
  181.   LSR.l #4,d7
  182.   EOR.l d0,d7
  183.   AND.l #$0f0f0f0f,d7
  184.   EOR.l d7,d0
  185.   LSL.l #4,d7
  186.   EOR.l d7,d1
  187.   MOVE.l  d3,d7
  188.   LSR.l #4,d7
  189.   EOR.l d2,d7
  190.   AND.l #$0f0f0f0f,d7
  191.   EOR.l d7,d2
  192.   LSL.l #4,d7
  193.   EOR.l d7,d3
  194.  
  195.   BRA _start
  196. _x
  197.   MOVE.l  (a0),d0
  198.   MOVE.l  (a7)+,(a0)+
  199.   MOVE.l  (a0),d1
  200.   MOVE.l  (a7)+,(a0)+
  201.   MOVE.l  (a0),d2
  202.   MOVE.l  (a7)+,(a0)+
  203.   MOVE.l  (a0),d3
  204.   MOVE.l  (a7)+,(a0)+
  205.   MOVE.l  (a0),d4
  206.   MOVE.l  (a7)+,(a0)+
  207.   MOVE.l  (a0),d5
  208.   MOVE.l  (a7)+,(a0)+
  209.  
  210.   MOVE.l  a6,-c2pBPLSIZE(a1)
  211.  
  212.   MOVE.l  d4,d7     ; Swap 16x4, part 1
  213.   MOVE.w  d0,d4
  214.   SWAP  d4
  215.   MOVE.w  d4,d0
  216.   MOVE.w  d7,d4
  217.   MOVE.l  d5,d7
  218.   MOVE.w  d1,d5
  219.   SWAP  d5
  220.   MOVE.w  d5,d1
  221.   MOVE.w  d7,d5
  222.  
  223.   MOVE.l  d4,d7     ; Swap 2x4, part 1
  224.   LSR.l #2,d7
  225.   EOR.l d0,d7
  226.   AND.l #$33333333,d7
  227.   EOR.l d7,d0
  228.   LSL.l #2,d7
  229.   EOR.l d7,d4
  230.   MOVE.l  d5,d7
  231.   LSR.l #2,d7
  232.   EOR.l d1,d7
  233.   AND.l #$33333333,d7
  234.   EOR.l d7,d1
  235.   LSL.l #2,d7
  236.   EOR.l d7,d5
  237.  
  238.   MOVE.l  (a0),d7
  239.   MOVE.l  (a7)+,(a0)+
  240.   MOVE.l  (a0),a6
  241.   MOVE.l  (a7)+,(a0)+
  242.  
  243.   MOVE.l  a5,-c2pBPLSIZE(a2)
  244.  
  245.   MOVE.l  d7,a5
  246.   EXG d4,a5
  247.   EXG d5,a6
  248.  
  249.   MOVE.l  d4,d7     ; Swap 16x4, part 2
  250.   MOVE.w  d2,d4
  251.   SWAP  d4
  252.   MOVE.w  d4,d2
  253.   MOVE.w  d7,d4
  254.   MOVE.l  d5,d7
  255.   MOVE.w  d3,d5
  256.   SWAP  d5
  257.   MOVE.w  d5,d3
  258.   MOVE.w  d7,d5
  259.  
  260.   MOVE.l  d4,d7     ; Swap 2x4, part 2
  261.   MOVE.l  d6,(a2)+
  262.   LSR.l #2,d7
  263.   EOR.l d2,d7
  264.   AND.l #$33333333,d7
  265.   EOR.l d7,d2
  266.   LSL.l #2,d7
  267.   EOR.l d7,d4
  268.   MOVE.l  d5,d7
  269.   LSR.l #2,d7
  270.   EOR.l d3,d7
  271.   AND.l #$33333333,d7
  272.   EOR.l d7,d3
  273.   LSL.l #2,d7
  274.   EOR.l d7,d5
  275.  
  276.   MOVE.l  d1,d7     ; Swap 4x1
  277.   LSR.l #4,d7
  278.   EOR.l d0,d7
  279.   MOVE.l  a4,(a1)+
  280.   AND.l #$0f0f0f0f,d7
  281.   EOR.l d7,d0
  282.   LSL.l #4,d7
  283.   EOR.l d7,d1
  284.   MOVE.l  d3,d7
  285.   LSR.l #4,d7
  286.   EOR.l d2,d7
  287.   AND.l #$0f0f0f0f,d7
  288.   EOR.l d7,d2
  289.   LSL.l #4,d7
  290.   EOR.l d7,d3
  291. _start
  292.  
  293.   MOVE.l  d2,d7     ; Swap 8x2, part 1
  294.   LSR.l #8,d7
  295.   EOR.l d0,d7
  296.   AND.l #$00ff00ff,d7
  297.   EOR.l d7,d0
  298.   LSL.l #8,d7
  299.   EOR.l d7,d2
  300.   MOVE.l  d2,d7
  301.   LSR.l #1,d7     ; Swap 1x2, part 1
  302.   EOR.l d0,d7
  303.   AND.l #$55555555,d7
  304.   EOR.l d7,d0
  305.   MOVE.l  d0,c2pBPLSIZE*2(a2)
  306.   ADD.l d7,d7
  307.   EOR.l d7,d2
  308.   MOVE.l  d3,d7     ; Swap 8x2, part 2
  309.   LSR.l #8,d7
  310.   EOR.l d1,d7
  311.   AND.l #$00ff00ff,d7
  312.   EOR.l d7,d1
  313.   LSL.l #8,d7
  314.   EOR.l d7,d3
  315.   MOVE.l  d3,d7
  316.   LSR.l #1,d7     ; Swap 1x2, part 2
  317.   EOR.l d1,d7
  318.   AND.l #$55555555,d7
  319.   EOR.l d7,d1
  320.   MOVE.l  d1,c2pBPLSIZE*2(a1)
  321.   ADD.l d7,d7
  322.   EOR.l d7,d3
  323.  
  324.   MOVE.l  d5,d7
  325.   LSR.l #4,d7
  326.   EOR.l d4,d7
  327.   AND.l #$0f0f0f0f,d7
  328.   EOR.l d7,d4
  329.   LSL.l #4,d7
  330.   EOR.l d7,d5
  331.  
  332.   EXG d4,a5
  333.   EXG d5,a6
  334.  
  335.   MOVE.l  d5,d7
  336.   LSR.l #4,d7
  337.   EOR.l d4,d7
  338.   AND.l #$0f0f0f0f,d7
  339.   EOR.l d7,d4
  340.   LSL.l #4,d7
  341.   EOR.l d7,d5
  342.  
  343.   MOVE.l  a5,d0
  344.   MOVE.l  a6,d1
  345.   MOVE.l  d2,c2pBPLSIZE(a2)
  346.  
  347.  
  348.   MOVE.l  d0,d7     ; Swap 8x2, part 3
  349.   LSR.l #8,d7
  350.   EOR.l d4,d7
  351.   AND.l #$00ff00ff,d7
  352.   EOR.l d7,d4
  353.   LSL.l #8,d7
  354.   EOR.l d7,d0
  355.   MOVE.l  d0,d7
  356.   LSR.l #1,d7     ; Swap 1x2, part 3
  357.   EOR.l d4,d7
  358.   AND.l #$55555555,d7
  359.   EOR.l d7,d4
  360.   ADD.l d7,d7
  361.   EOR.l d7,d0
  362.   MOVE.l  d1,d7     ; Swap 8x2, part 4
  363.   LSR.l #8,d7
  364.   MOVE.l  d3,c2pBPLSIZE(a1)
  365.   EOR.l d5,d7
  366.   AND.l #$00ff00ff,d7
  367.   EOR.l d7,d5
  368.   LSL.l #8,d7
  369.   EOR.l d7,d1
  370.   MOVE.l  d1,d7
  371.   LSR.l #1,d7     ; Swap 1x2, part 4
  372.   EOR.l d5,d7
  373.   AND.l #$55555555,d7
  374.   EOR.l d7,d5
  375.   ADD.l d7,d7
  376.   EOR.l d7,d1
  377.  
  378.   MOVE.l  d0,a5
  379.   MOVE.l  d1,a6
  380.  
  381.   MOVE.l  d4,d6
  382.   MOVE.l  d5,a4
  383.  
  384.   CMP.l a0,a3
  385.   BNE _x
  386.  
  387.   MOVE.l  a6,-c2pBPLSIZE(a1)
  388.   MOVE.l  a5,-c2pBPLSIZE(a2)
  389.   MOVE.l  d6,(a2)+
  390.   MOVE.l  a4,(a1)+
  391.   MOVE.l  stackstore(pc),a7
  392.   MOVEM.l (a7)+,a3-a6
  393. AsmExit
  394.  
  395.   Even4
  396. stackstore: Dc.l 0
  397. copybuf: Dc.l 0
  398. c2p_data
  399. c2p_scroffs: Dc.l 0
  400. c2p_pixels: Dc.l 0
  401.   Ds.l  16
  402.   Even4
  403. c2p_datanew
  404.   Ds.l  16
  405. End Statement
  406.  
  407. Statement chunkyshape1{A.l,B.l,C.l,D.l}
  408. .chunkyshape1
  409. ;32x32 any position masked on the fly
  410.   MULU    #320,d3
  411.   MOVE.l  d0,a0
  412.   ADD.l   d2,d3
  413.   ADD.l   d3,d1
  414.   MOVE.l  d1,a1
  415.   MOVEQ.l #objwidth-1,d2 ; d2=yloop
  416.   MOVEQ.l #8,d5 ; temp for speed
  417. yloop
  418.   MOVEQ.l #objlongwidth-1,d3 ; xloop
  419. xloop
  420.     MOVE.l  (a0),d6 ; Store gfx (cache?)
  421.     MOVE.b  (a0)+,d4 ; source
  422.     SEQ.b   d4    ; mask
  423.     ROL.l   d5,d4 ; rotate
  424.     MOVE.b  (a0)+,d4 ; source
  425.     SEQ.b   d4    ; mask
  426.     ROL.l   d5,d4 ; rotate
  427.     MOVE.l  (a1),d7 ; get dest
  428.     MOVE.b  (a0)+,d4 ; source
  429.     SEQ.b   d4    ; mask
  430.     ROL.l   d5,d4 ; rotate
  431.     MOVE.b  (a0)+,d4 ; source
  432.     SEQ.b   d4    ; mask
  433.     ROL.l   d5,d4 ; rotate
  434.     AND.l   d4,d7 ; cut
  435.     OR.l    d6,d7 ; paste
  436.     MOVE.l  d7,(a1)+ ; Output
  437.     DBRA    d3,xloop
  438.   ADD.l   #320-32,a1 ; line modulo
  439.   DBRA    d2,yloop
  440.   AsmExit
  441. End Statement
  442.  
  443. Statement chunkyshape2{A.l,B.l,C.l,D.l}
  444. .chunkyshape2
  445. ;32x32 any position non-masked
  446.   MULU    #320,d3
  447.   MOVE.l  d0,a0
  448.   ADD.l   d2,d3
  449.   ADD.l   d3,d1
  450.   MOVE.l  d1,a1
  451.   MOVEQ.l #objwidth-1,d2
  452.   MOVEQ.l #8,d5
  453.   MOVE.l  #320-objwidth,d3
  454. yloop2
  455.   MOVEQ.l #objlongwidth-1,d4
  456. xloop2
  457.     MOVE.l  (a0)+,(a1)+
  458.     DBRA    d4,xloop2
  459.   ADD.l   d3,a1
  460.   DBRA    d2,yloop2
  461. AsmExit
  462. End Statement
  463.  
  464. Statement chunkyshape3{A.l,B.l,C.l,D.l,E.l}
  465. .chunkyshape3
  466. ;32x32 any position masked with mask data
  467. ;needs Bank(3) as the second param
  468.   MULU    #320,d4
  469.   MOVE.l  d0,a0 ; input
  470.   ADD.l   d3,d4
  471.   MOVE.l  d1,a2 ; mask
  472.   ADD.l   d4,d2
  473.   MOVE.l  d2,a1 ; output
  474.   MOVEQ.l #objwidth-1,d2
  475.   MOVE.l  #320-objwidth,d3
  476. yloop3
  477.   MOVEQ.l #objlongwidth-1,d4
  478. xloop3
  479.     MOVE.l  (a2)+,d0
  480.     AND.l   d0,(a1)
  481.     MOVE.l  (a0)+,d1
  482.     OR.l    d1,(a1)+
  483.     DBRA    d4,xloop3
  484.   ADD.l   d3,a1
  485.   DBRA    d2,yloop3
  486. AsmExit
  487. End Statement
  488.  
  489. .blitzprogram
  490. ; Setup
  491. InitBank 1,#scrwidth*#scrheight,$10000 ; Fastram chunky buffer
  492. InitBank 4,#scrwidth*#scrheight,$10000 ; Fastram background buffer
  493. GetReg d0,Bank(4)
  494. MOVE.l d0,copybuf
  495. BLoad "320x256x256.chunky",Bank(4),#scrwidth*#scrheight
  496. LoadPalette 0,"320x256x256.palette"
  497. InitBank 0,(#scrwidth*#scrheight)+1000,2|65536 ; Chipram planar buffer
  498. CludgeBitMap 0,#scrwidth,#scrheight,8,Bank(0)
  499. Screen 0,0,0,#scrwidth,#scrheight,8,0,"c2p test",0,0,0
  500. Use Palette 0
  501. VWait 50
  502.  
  503. ; chunky shape
  504. InitBank 2,#objwidth*#objheight,$10000 ; chunky shape
  505. For o=0 To (#objwidth*#objheight)-1
  506.   Poke.b Bank(2)+o,Rnd(255)
  507. Next o
  508.  
  509. ; chunky mask
  510. InitBank 3,#objwidth*#objheight,$10000 ; chunky mask
  511. For o=0 To (#objwidth*#objheight)-1
  512.   If Peek.b(Bank(2)+o)=0 Then Poke.b Bank(3)+o,$ff Else Poke.b Bank(3)+o,$0
  513. Next o
  514.  
  515. ; Do the c2p test
  516. c2p040onlyinit{#scrwidth,#scrheight}
  517. VWait 20
  518. Forbid_
  519. VWait
  520. If #objtype=1
  521.   ResetTimer
  522.   For time=1 To 800
  523.     For cs=1 To #objcount
  524.       chunkyshape1{Bank(2),Bank(1),Rnd(#scrwidth-#objwidth-4)&#objxalign,Rnd(#scrheight-#objheight-4)}
  525.     Next cs
  526.     c2p040only{Bank(1),Bank(0)} ; Convert chunky to planar
  527.   Next time
  528.   t=Ticks
  529. Else
  530.   If #objtype=2
  531.     ResetTimer
  532.     For time=1 To 800
  533.       For cs=1 To #objcount
  534.         chunkyshape2{Bank(2),Bank(1),Rnd(#scrwidth-#objwidth-4)&#objxalign,Rnd(#scrheight-#objheight-4)}
  535.       Next cs
  536.       c2p040only{Bank(1),Bank(0)} ; Convert chunky to planar
  537.     Next time
  538.     t=Ticks
  539.   Else
  540.     If #objtype=3
  541.       ResetTimer
  542.       For time=1 To 800
  543.         For cs=1 To #objcount
  544.           chunkyshape3{Bank(2),Bank(3),Bank(1),Rnd(#scrwidth-#objwidth-4)&#objxalign,Rnd(#scrheight-#objheight-4)}
  545.         Next cs
  546.         c2p040only{Bank(1),Bank(0)} ; Convert chunky to planar
  547.       Next time
  548.       t=Ticks
  549.     EndIf
  550.   EndIf
  551. EndIf
  552.  
  553. VWait 2 : Permit_
  554. VWait 20
  555. FindScreen 0
  556. Window 0,0,11,640,100,0,"Test results for c2p",0,0
  557. WindowOutput 0
  558. per.f=1/(t/800)
  559. NPrint "Routine performed @ ",50/(t/800),"fps - ",t," ticks - ",per," per frame"
  560. NPrint " "
  561. NPrint "Press mousebutton..."
  562. Free Screen 0
  563. MouseWait
  564. Free Window 0
  565. End
  566.  
  567.